with Text_Io;
use Text_Io;

package Entrees_Sorties_Duration is

   package Es_D is new Fixed_Io(Duration);
   
   --68		generic
   --		type Num is delta <>;
   --	package Fixed_IO is

   --69			Default_Fore : Field := Num'Fore;
   --		Default_Aft  : Field := Num'Aft;
   --		Default_Exp  : Field := 0;
   --70			procedure Get(File  : in  File_Type;
   --		              Item  : out Num;
   --		              Width : in  Field := 0);
   --		procedure Get(Item  : out Num;
   --		              Width : in  Field := 0);
   --71			procedure Put(File : in File_Type;
   --		              Item : in Num;
   --		              Fore : in Field := Default_Fore;
   --		              Aft  : in Field := Default_Aft;
   --		              Exp  : in Field := Default_Exp);
   --		procedure Put(Item : in Num;
   --		              Fore : in Field := Default_Fore;
   --		              Aft  : in Field := Default_Aft;
   --		              Exp  : in Field := Default_Exp);

   --72			procedure Get(From : in  String;
   --		              Item : out Num;
   --		              Last : out Positive);
   --		procedure Put(To   : out String;
   --		              Item : in Num;
   --		              Aft  : in Field := Default_Aft;
   --		              Exp  : in Field := Default_Exp);
   --	end Fixed_IO;


   procedure Get(Item: out Duration;
         Width: in Field := 0) 
   renames Es_D.Get;

procedure Put(File : in File_Type;
      Item : in duration;
      Fore : in Field := es_d.Default_Fore;
      Aft  : in Field := es_d.Default_Aft;
      Exp  : in Field := es_d.Default_Exp)
renames Es_D.Put;

end Entrees_Sorties_Duration;